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CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


$ep-1984 00:22:3 VAX=-11 FORTRAN V3.4-56 Pa 1 Lu 

1$-sep-1984 90:86:28 DISKSVMSMASTER: CERF .SRCJLINCHK.FOR;1 — | 

, SUBROUT INE LINCHK (LUN, COUNT) 

: Version: *v04-000' 
OPES EPE STITT TTT TTT TTT c iii icici tii ti iii iii itiiiiiigy 
* * 
* COPYRIGHT (or 1978, 1980, 1982, 1984 B * 
* DIGI TAL EQUI EORPORATION MAYNARD. MASSACHUSETTS. * 
* ALL RIGHTS RESERVED. > 
wt 
i * THIS SOFTWARE IS FURNISHED. UNDER A ak ICENSE AND MAY BE USED AND COPIED * 
001 * ONLY IN ACCORDANCE W 1H rRicat OF SUCH LICEN ENSE AND WITH THE ®* 
001 * INCLUSION OF THE ABOV OPYR Gute NOTIC THIS SOFTWARE OR ANY OTH HER * 
001 * COPIES THEREOF MAY NOT be P OVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
001 * OTHER PERSON. NO TITLE TO AND OUNERSH P OF THE SOFTWARE IS HEREBY * 
‘oh : TRANSFERRED. . 
001 * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
001 * AND. SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT + 
& * 
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Modified by: 
5 v03-001 SARO241 Sharon A. Reynolds 2-Apr-1984 


8 
Changed references to the TOF routine to FR TOF, function 
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3 performed is the same. 
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INCLUDE *SRC$:SYECOM.FOR /NOLIST’ 


BYTE LUN 
BYTE COUNT 
INTEGER*4 FIELD 


IF (LINES .€Q. 1) CALL FRCTOF (LUN) 
FIELD = LIBSLP_LINES() 

IF (CLINES ¢ COUNT) .GT. (FIELD = 3)) CALL FRCTOF (LUN) 
LINES = LINES + COUNT 

RETURN 
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185 
S186 END | 
PROGRAM SECTIONS 
Name Bytes Attributes 
SCODE PIC CON REL LCL SHR EXE RD NOWRT LONG 
SLOCAL 0 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
SYECOM 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 148 04 
ENTRY POINTS oe 
Address Type Name ge 
0-00000000 LINCHK Se 
04 
VARIABLES ee 
Address Type Name A 
COUNT CP_11750 04 
CP_11780 CP 11722 04 
CRYPTK_FLAG DEV_CHAR 04 
END_vACUE EOF “FLAG 8 
FIECD S 
LINES LSTLUN 04 
LUN MAILBOX_CHANNEL 04 
OPTIONS P 04 
RECCNT RECORD SIZE 04 
VALID_CLASS VALID_CPU 04 
VALID-ENTRY VALID-TYPE 04 
VOLUME _OUTPUT 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
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Address Type Name 

FRCTOF 1*4 LIBSLP_LINES | 
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COMMAND QUALIFIERS 
FORTRAN /LIS=LISS:LINCHK/OBJ=0BJ$:LINCHK MSRC$:LINCHK 


/DEBUGs (WO fn ae eri 


COMPILATION STATISTICS 


Page Faults: 
° 65 pages 


Time 1.18 seconds 

lhe y Time: fai° seconds 

Dynamic Memory: 1 
| 
} 
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